home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / ada / c01lab1.zip / ADAWKBK / SOL1-2.ADA < prev    next >
Text File  |  1992-11-11  |  493b  |  22 lines
  1. -- Problem 1.2
  2. -- by Rick Conn
  3. with Text_IO;  -- context clause
  4.  
  5. procedure Display is
  6.  
  7.   -- display a single quote and a double quote
  8.  
  9. begin
  10.  
  11.   Text_IO.Put_Line ("First Method --");
  12.  
  13.   Text_IO.Put_Line (" Single Quote: '");
  14.   Text_IO.Put_Line (" Double Quote: """);
  15.  
  16.   Text_IO.Put_Line ("Alternate Method --");
  17.  
  18.   Text_IO.Put (" Single Quote: "); Text_IO.Put (''');  Text_IO.New_Line;
  19.   Text_IO.Put (" Double Quote: "); Text_IO.Put ('"');  Text_IO.New_Line;
  20.  
  21. end Display;
  22.